﻿Imports System.Data
Imports VSModel
Imports Cls_Common
Imports SecurityService
Partial Class Control_ProColors_Create
    Inherits System.Web.UI.UserControl
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            Session("curSA") = Nothing
            Session("ListGenPO") = Nothing

        End If

    End Sub
    Protected Sub btnSaveOrderDetail_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSaveOrderDetail.Click

        If Session("Username") = Nothing Then
            Excute_Javascript("Alertbox('Bạn chưa đăng nhập vào hệ thống. vui lòng đăng nhập !');window.location ='../../Login.aspx';", Me.Page, True)
            Exit Sub
        End If
        Using data As New VSEntities
            Dim p As New VSModel.ProColor
            Dim tit = txtTitle.Text
            Dim q = (From x In data.ProColors Where x.Title = tit Select x.Title).FirstOrDefault
            If q Is Nothing Then
                Try
                    p.Title = txtTitle.Text
                    p.MaMau = txtMaMau.Text
                    p.Description = txtDescription.Text
                    data.ProColors.AddObject(p)
                    data.SaveChanges()
                    'logInfo = "Insert OrderDetail of Order: " & txtDoc_serial_no.Text & "<br>" & logInfo
                    ' Insert_App_Log(logInfo, Function_Name.Order, Audit_Type.Create, Request.ServerVariables("REMOTE_ADDR"), Session("UserName"))
                    Excute_Javascript("Alertbox('Cập nhật dữ liệu thành công.'); ", Me.Page, True)
                    Response.Redirect("List.aspx?ID=" & p.Id.ToString)


                Catch ex As Exception
                    Excute_Javascript("Alertbox('Cập nhật dữ liệu thất bại.'); ", Me.Page, True)
                    '    Excute_Javascript("Alertbox('Cập nhật chi tiết bán hàng thất bại.');", Me.Page, True)
                    '    Exit Sub
                    'End Try
                    '    End If
                    'Catch ex As Exception

                    '    Excute_Javascript("Alertbox('Cập nhật Order thất bại.');", Me.Page, True)
                End Try
                '    End If
                'End If
            Else
                Excute_Javascript("Alertbox('Loại màu  đã tồn tại trong hệ thống')", Me.Page, True)
            End If

        End Using
    End Sub

    Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Response.Redirect("List.aspx")
    End Sub
End Class